      program ftest

      character*32 :: hash_orig, hash
      integer ii, jj, kk
      common/ijk/ ii, jj, kk
      real*8  ff
      character*32 cc

      hash_orig = 'matt';
      hash      = 'not set'

      !call md5(hash_orig, hash);
      call doubleijk(c);

      !write(0, *) hash_orig, hash
      write(0,*) "C = ", c

      stop

      end
